/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / System7 tools / Frontier / importb2file. / importb2file / importb2file.rsrc / scpt_129

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 01 04 21 00 02 00 00 | 00 a2 00 00 03 34 00 06 |...!....|.....4..|
|00000010| 02 00 00 0f 06 47 65 6e | 65 76 61 00 00 00 00 00 |.....Gen|eva.....|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 09 | 00 00 00 00 00 01 00 00 |........|........|
|00000040| 00 00 06 78 00 00 a4 28 | b5 78 a4 d9 52 5b 00 00 |...x...(|.x..R[..|
|00000050| 00 39 00 00 00 5d 00 9a | 01 c0 02 29 00 00 00 00 |.9...]..|...)....|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 6f 6e 20 69 |........|....on i|
|00000080| 6d 70 6f 72 74 62 32 66 | 69 6c 65 20 28 70 61 74 |mportb2f|ile (pat|
|00000090| 68 29 0d 09 6c 6f 63 61 | 6c 0d 09 09 72 65 73 6f |h)..loca|l...reso|
|000000a0| 75 72 63 65 64 61 74 61 | 20 c7 68 6f 6c 64 73 20 |urcedata| .holds |
|000000b0| 74 68 65 20 64 61 74 61 | 20 72 65 63 65 69 76 65 |the data| receive|
|000000c0| 64 20 66 72 6f 6d 20 72 | 65 73 6f 75 72 63 65 20 |d from r|esource |
|000000d0| 66 6f 72 6b 0d 09 09 64 | 61 74 61 62 61 73 65 6e |fork...d|atabasen|
|000000e0| 61 6d 65 20 c7 6f 62 6a | 65 63 74 20 64 61 74 61 |ame .obj|ect data|
|000000f0| 62 61 73 65 20 6e 61 6d | 65 20 66 6f 72 20 74 68 |base nam|e for th|
|00000100| 65 20 69 6d 70 6f 72 74 | 65 64 20 73 74 75 66 66 |e import|ed stuff|
|00000110| 0d 09 09 61 64 72 20 c7 | 61 64 64 72 65 73 73 20 |...adr .|address |
|00000120| 6f 66 20 6f 62 6a 65 63 | 74 20 64 61 74 61 62 61 |of objec|t databa|
|00000130| 73 65 20 63 65 6c 6c 20 | 66 6f 72 20 69 6d 70 6f |se cell |for impo|
|00000140| 72 74 65 64 20 73 74 75 | 66 66 0d 09 0d 09 69 66 |rted stu|ff....if|
|00000150| 20 21 66 69 6c 65 2e 67 | 65 74 66 69 6c 65 64 69 | !file.g|etfiledi|
|00000160| 61 6c 6f 67 20 28 40 70 | 61 74 68 2c 20 27 72 73 |alog (@p|ath, 'rs|
|00000170| 72 63 27 29 0d 09 09 72 | 65 74 75 72 6e 20 28 66 |rc')...r|eturn (f|
|00000180| 61 6c 73 65 29 0d 09 0d | 09 69 66 20 21 66 69 6c |alse)...|.if !fil|
|00000190| 65 2e 67 65 74 6e 74 68 | 72 65 73 6f 75 72 63 65 |e.getnth|resource|
|000001a0| 20 28 70 61 74 68 2c 20 | 27 64 61 74 61 27 2c 20 | (path, |'data', |
|000001b0| 31 2c 20 40 64 61 74 61 | 62 61 73 65 6e 61 6d 65 |1, @data|basename|
|000001c0| 2c 20 40 72 65 73 6f 75 | 72 63 65 64 61 74 61 29 |, @resou|rcedata)|
|000001d0| 0d 09 09 72 65 74 75 72 | 6e 20 28 66 61 6c 73 65 |...retur|n (false|
|000001e0| 29 0d 09 0d 09 69 66 20 | 21 64 69 61 6c 6f 67 2e |)....if |!dialog.|
|000001f0| 61 73 6b 20 28 22 44 61 | 74 61 62 61 73 65 20 6e |ask ("Da|tabase n|
|00000200| 61 6d 65 20 66 6f 72 20 | 74 68 69 73 20 6f 62 6a |ame for |this obj|
|00000210| 65 63 74 3f 22 2c 20 40 | 64 61 74 61 62 61 73 65 |ect?", @|database|
|00000220| 6e 61 6d 65 29 0d 09 09 | 72 65 74 75 72 6e 20 28 |name)...|return (|
|00000230| 66 61 6c 73 65 29 0d 09 | 61 64 72 20 3d 20 61 64 |false)..|adr = ad|
|00000240| 64 72 65 73 73 20 28 64 | 61 74 61 62 61 73 65 6e |dress (d|atabasen|
|00000250| 61 6d 65 29 0d 09 0d 09 | 69 66 20 64 65 66 69 6e |ame)....|if defin|
|00000260| 65 64 20 28 61 64 72 5e | 29 0d 09 09 69 66 20 21 |ed (adr^|)...if !|
|00000270| 64 69 61 6c 6f 67 2e 63 | 6f 6e 66 69 72 6d 20 28 |dialog.c|onfirm (|
|00000280| 22 52 65 70 6c 61 63 65 | 20 65 78 69 73 74 69 6e |"Replace| existin|
|00000290| 67 20 6f 62 6a 65 63 74 | 20 6e 61 6d 65 64 20 22 |g object| named "|
|000002a0| 20 2b 20 61 64 72 20 2b | 20 22 3f 22 29 0d 09 09 | + adr +| "?")...|
|000002b0| 09 72 65 74 75 72 6e 20 | 28 66 61 6c 73 65 29 0d |.return |(false).|
|000002c0| 09 0d 09 62 75 6e 64 6c | 65 20 c7 75 6e 70 61 63 |...bundl|e .unpac|
|000002d0| 6b 20 74 68 65 20 64 61 | 74 61 20 69 6e 74 6f 20 |k the da|ta into |
|000002e0| 74 68 65 20 6f 62 6a 65 | 63 74 20 64 61 74 61 62 |the obje|ct datab|
|000002f0| 61 73 65 0d 09 09 69 66 | 20 21 75 6e 70 61 63 6b |ase...if| !unpack|
|00000300| 20 28 40 72 65 73 6f 75 | 72 63 65 64 61 74 61 2c | (@resou|rcedata,|
|00000310| 20 61 64 72 29 0d 09 09 | 09 72 65 74 75 72 6e 20 | adr)...|.return |
|00000320| 28 66 61 6c 73 65 29 0d | 09 09 69 66 20 21 75 6e |(false).|..if !un|
|00000330| 70 61 63 6b 20 28 61 64 | 72 2c 20 61 64 72 29 20 |pack (ad|r, adr) |
|00000340| c7 61 68 68 68 20 74 68 | 65 20 6d 79 73 74 65 72 |.ahhh th|e myster|
|00000350| 69 65 73 20 6f 66 20 6f | 75 72 20 64 61 74 61 20 |ies of o|ur data |
|00000360| 66 6f 72 6d 61 74 0d 09 | 09 09 72 65 74 75 72 6e |format..|..return|
|00000370| 20 28 66 61 6c 73 65 29 | 0d 09 0d 09 72 65 74 75 | (false)|....retu|
|00000380| 72 6e 20 28 65 64 69 74 | 20 28 61 64 72 29 29 20 |rn (edit| (adr)) |
|00000390| c7 73 68 6f 77 20 74 68 | 65 20 6e 65 77 6c 79 20 |.show th|e newly |
|000003a0| 69 6d 70 6f 72 74 65 64 | 20 6f 62 6a 65 63 74 0d |imported| object.|
|000003b0| 80 00 00 00 00 00 80 00 | 00 00 00 00 80 00 00 00 |........|........|
|000003c0| 00 00 80 00 00 00 00 00 | 80 00 00 00 00 00 80 00 |........|........|
|000003d0| 00 00 00 00 80 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003e0| 80 00 00 00 00 00 80 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003f0| 00 00 80 00 00 00 00 00 | 80 00 00 00 00 00 00 00 |........|........|
|00000400| 00 00 00 00 80 00 00 00 | 00 00 80 00 00 00 00 00 |........|........|
|00000410| 80 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000420| 00 00 80 00 00 00 00 00 | 80 00 00 00 00 00 80 00 |........|........|
|00000430| 00 00 00 00 00 00 00 00 | 00 00 80 00 00 00 00 00 |........|........|
|00000440| 00 00 00 00 00 00 80 00 | 00 00 00 00 80 00 00 00 |........|........|
|00000450| 00 00                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+